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-742 Page 1 
PRTSMB.SRCJMEMORY .B32;1 (1) | 


MODULE MEMORY (% + tears iont Services -- Memory routines’ 
ESSING_MODE CEXTERNAL = GENERAL) | 
BEGIN 


' 
SRR RRA RARER ERR RE RE REE EERE REE EERE ARATE 
‘ 


3 1 0001 0 

; ¢ 4it4 

3 000 

; 4 0004 

; 5 0005 1 

3 6 0006 1 

; 7 0007 1 

: 8 0008 1 

; 9 0009 1 * 

$ 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

; 11 0011 1 !* DIGITAL EQuU He CORPORATION, - MAYNARD. MASSACHUSETTS. * 

; \§ botg ! i ALL RIGHTS RESERVED. * 

3 ! e 
; 14 0014 1 !* THIS i. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og hay * 

3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 16 0016 1 !* INCLUSION OF THE ABOVE gpd NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 18 0078 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 19 0019 1 !* TRANSFERRED. * 
20 0020 1 !* * 
3 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

s 22 0022 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Si BoS7 : :* CORPORATION. * 
: i ® | 
; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

F 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3 27 0027 1 !* * 
; 28 0028 1 !* » 

3 29 QCOZD 1 eee ee ee RRR RRR REE E EEE EEE ERA EEE } 
; 0030 1! 
3 31 0031 +1 
; ie ih T4 1 +4 
: 33 003 1 i FACILITY 

ae. 0034 1! Symbiont Services 

: 35 0035 1! 
$ 36 0036 1} ABSTRACT: ¢ : See 

: 37 0037 1! This module provides routines to allocate, deallocate and initialize 

; 3 0038 1! memory structures. 
3 39 0039 1: 
3 40 0040 1 ! ENVIRONMENT: 
:. <a 0041 1! VAX/VMS user mode. 

s 62 0042 1 i- 

: 43 0043 1! 

: rc] Ooee ' r AUTHOR: Greg Robert, CREATION DATE: 26-Apr-1983 

; 646 0046 1 ! MODIFIED BY: 

: 47 0047 1: 

: 48 0048 1! 38-007 RRB3007 owland R. Bradley 18-Jul-1984 | 
: 49 0049 1! snsere Aa ae R ox” te PSMSREAD Ten. om. Phe. insures proper 5k 
; 0050 1! copy of word items to user ripsor Change message | 
; 51 0051 1! PS _ROMORE TEMS to cHBS. NOMOREI TERS SMS. INVSTRLEV to 
; 2g ooe8 : SMB$_ INVSTRLEV. 

: 54 0054 1! 38-006 GRR3006 Gregory R. Rober 16-May-1984 

3 2? Ones : Reset current PAGE | og START PAGE on SCB reset. 

t oF 0057 1: 38-005 GRR3005 Gregory R. Robert 29-Apr-1984 


seacitiationiln dnsielareiadaeasdacdinegiaainapaiampaiminenistinnibiiamimagibkienakiniales r 
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MEMORY Symbiont Services == Memory routines 1-se =1984 62:19: AX=-11 Bliss-32 V4.0-742 Page 2) MEM 
voe-000 2 : ks 1e=8ep-1986 13:55:09 LPRTSMBCSRESMEMORY 032: at) I “VvO4 
— 2 0058 1! FT2 bugfixes. | 
ee. , 0059 1! 
; 99 060 1! 38-004 RRB3004 Rowland R. Bradley 27-Apr-1984 
061 1! Add support for the new page header routine. Initialize 
: 66 p66 : the page header dynamic descriptor. 
: 64 0064 1 38-003 GRR3003 Gregory R. Robert 23-Aug-1983 
;. 6 0065 1! Bugfixes, page_setup_modules, form_setup_modules, 
; 66 0066 1! sheet_feed, symbiont initiated pause_task and stop_stream, 
: 24 Does : hangup code, read and write item services 
: 69 0069 1 | 38-002 GRR3002 Gregory R. Robert 03-Aug-1983 
; ‘y Boy : Rewrite for new design. 
ee 0072 1! 38-001 GRR4001 Gregory R. Robert 24-Jul-1983 | 
ites 0073 1! Created new module 
» 26 0074 1! 
,. 0075 1 !e* 
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Pw 
™ 


S 
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TTL ‘ALLOCATE_DSB'. 
unctional Description: ; 
Allocates a dynanic string block. 
Formal Parameters: ; 
DSB : address of longword to receive allocated DSB address 
BYTES : number of bytes to be reserved in dynamic string desc. 


Implicit Inputs: 
none 

Implicit Outputs: 
none 

Returned Value: 
non 


Side Effects: 

non 

GLOBAL ROUTINE PSM$ALLOCATE_DSB ( 
DSB : REF SLONGQOR 

BYTES : REF SWORD 

) : NOVALUE = 


PARAMETER_INDEX_ (DSB, BYTES); 


. 


BEGIN 


ff gt REE DSS CURVES EQL 0 

INIT_QUEUE_HEADER_ (FREE_DSB_QUEUE); 

Dequeve a dynamic string block 

ee REMOVE _HEAD_ (DSBC], FREE_DSB_QUEUE) ! True if empty 


BEGIN 

LOCAL PAGE; 

Allocate a page of DSB's. 

SASSUME (DSB_S_DSB * 32, EQL, 512) 
PAGE = ALLOCATE _MEMORY (512); 
CHSFILL (0, 512, .PAGE); 

Initialize and place them in queue 


INCRA PTR FROM .PAGE TO .PAGE + 511 BY DSB_S_DSB 


Be Be Oe Be Se Ge Se Be Be Se Ge Ge Ge Ge Se Ge FH Ge Se Ge Ge Se Se Se Se Ge Ge Se Fe Ge Se Se Se Se Fe Se Se Se Ss Oe os Oe BH Se Oe Se ee ee 


BEGIN 
MAP PTR: REF $BBLOCK; 
INIT_DYN_DESC_ (PTRCDSB_ 
INSERT_TAIL_ TPTRCDSB_Q- 
END; 

END; 


DSBC] = .DSBC] - SBYTEOFFSET (DSB_Q_QLINKS); 


Q DESC)); 
QCINKS), 


FREE_DSB_QUEUE); 


a ed ed ed ed dd ed ed 


AAAAARAOAOA MINNIE BE LER EEE BWW ponononononononopnn 2 2 2 
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MEMORY Symbiont Services -- Memory routines 16. -$ep-1984 02:19:00 AX-11 Bliss-32 V4.0-742 Pa 5 
v04=000 ALLOCATE _DSB ; ence 18be 93:88:09 eR T Smee tse Snemony 03505 9° 03) 
; 170 1115 
: 171 1116 IF PARAMETER_PRESENT_ (BYTES) 
: 7 111 THEN 
; 73 1118 SIGNAL_IF_ERROR_ (STRSGET1_DX (BYTESCJ, SBBLOCKC.DSBCJ, DSB_Q_DESCJ)); 
: 175 1120 1 END; 


- TITLE 
- IDENT 


»PSECT 


00000 FREE_DSB_QUEUE: 
00008 FREE_108_ QUEUE: 
"BLKB 


~EXTRN 
-EXTRN 
-PSECT 
OOFC 00000 -ENTRY 
57 0000" CF °F BOOS MOVAB 
67 05 0000 TSTL 
07 12 00009 BNEQ 
67 67 9E 00008 MOVAB 
04 A? 67 9E 0000 MOVAB 
04 BC 00 BF OF Baot 1$ REMQUE 
B iC 0001 vc 
7E 0200 8F 3C 00019 MOVZWL 
0000v CF 01 FB OOOTE CALLS 


me —- -- Oe SS 


Ny a atin Services -- Memory routines 


DATA,NOEXE,2 


BASSEDIT, LBRSCLOSE 
LBRSGET RECORD. pete CONTROL 


STRSCOPY DX, STRSCOPY 
T DX, STRSEREET _DX_R4 
X, STRSLEFT 


OF | 
S"ESCAPE, PSM$_FLUSH 
PSM$_ FUNNOTSUP, PSHS. INVITMCOD 


PSM$~ -OSCTOOLON, PSM$_PENDI 
m PSM$ TOOMANYLEV 
SMBS INVSTANGR SMBS$_INVSTRLEV 


E 
PSMSMIT, PSMSXLATE_8BIT 
SMBSREAD_MESSAGE_ITEM 
EXPAND_ CONDIT IONE VECTOR 


CODE ,NOWRT ,2 


PSMSALLOCATE DSB, Save R2,R3,R4,R5,R6,R7  ; 1078 
FREE_DSB_QUEUE, R7 ; | 
FREE _DSB_QUEU : 1086— 
FREE _DSB_QUEUE, FREE_DSB_QUEUE : 1088 
FREE-DSB-QUEUE, FREE-DSB_QUEUE +4 ; | 
af REE_DSB_ QUEUE, absB ; 1092. 
#512, -(SP) : 1100. 
#1, ALLOCATE_MEMORY ; 


Sete PH Se Be Se Oe Se Be Se Se Se Se Se Se SH Se Se Se Se Se See Se SH Se Se Se Se eee Se Seas 


| 
| 
| 
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125 bytes, Routine Base: 


; Routine Size: 
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TE_ 108 , 10-Sep-19 4 5:42:90 PRTSMB.SRCJMEMORY .B32; 1 
SBTTL ‘ALLOCATE_10B' 


Functional Description: 
Allocate an Input Output control Block. 


Formal Parameters: 
10B = address of a longword to receive address of allocated 108 
BYTES = number of bytes to be allocated in buffer 


Implicit Inputs: 
none 


Imolicit Outputs: 
none 


Returned Value: 
non 


Side Effects: 
non 


GLOBAL ROUTINE PSMSALLOCATE 10B ( 
108 : REF $LONGQORD, 

BYTES : REF $WORD 

) : NOWALUE = 

BEGIN 


BUILTIN 
NULLPARAMETER 


IF _.FREE_108_QUEVECO] EQL 0 
INIT_QUEUE_HEADER_ (FREE_I0B_QUEUE); 


Dequeue a dynamic string block 
WHILE REMOVE_HEAD_ (I0BCJ, FREE_10B_QUEUE) ' True if empty 


BEGIN 
LOCAL MEMORY; 
Allocate 20 I0B's. 


MEMORY = ALLOCATE_MEMORY (20 * I0B S_I0B); 
CHSFILL (0, 20 * TOB_S_I0B, .MEMORY); 


: Initialize and place them in queue 
INCRA PTR FROM .MEMORY TO .MEMORY + (20 * JOB_S_IOB - 1) BY I0B_S_10B 
LOCK; 
= PSMSK_STRUCTURE_10B; 
is = SMBMSG$K_STRUCTURE_LEVEL; 
= 106 $_10B; 
(PTRCIOB-Q_BUFFER]); 


Page 


FwnO0w 


OSAO Os BF 


; Routine Size: 


H 7 
yap ions Services -- Memory routines 16-Sep-1984 05:12:08 AX-11 Bliss-32 V4.0-74 
ALLOCATE_108 14-Sep-1984 355: PRTSMB.SRCJMEMORY .B32; 
1178 4 INSERT_TAIL_ (PTRCIOB_Q_QLINKS], FREE_10B_QUEUE); 
117 END; 
1389 END; 
i é 10BC) = .10BC) = SBYTEOFFSET (10B_Q_QLINKS); 
1} ¢ . a NULLPARAMETER (2) 
1158 $ SIGNAL_IF_ERROR_ (STRSGET1_DX (BYTESC), SBBLOCKC.108(J, I0B_Q_BUFFERI])); 
1188 1 END; 


OOFC 00000 ENTRY PSMSALLOCATE_IOB, Save R2,R3,R4,R5,R6,R7 
57 0000" CF oe 90002 MOVAB FREE_IOB_QUEDE, R 
67 D5 0000 TSTL | FREE~1OB~QUEUE 
07 12 00009 BNEQ ~='1$ 
67 67 9E 00008 MOVAB FREE_IOB QUEUE. FREE_I0B_QUEUE 
04 A? 67 9E 0000 OVAB_ FREE-IOB-QUEUE, FREE~10B~QUEUE+4 
04 BC 00 B87 OF 00012 1$ REMQUE a@FRE to QUEUE, a108 
44 1C 0001 BVC 4$ 
7E OSAO BF 3C 00019 MOVZWL #1440, 
0000v CF 01 FB O001E CALLS #1, ALLOCATE _MEMORY 
56 50 D0 0002 MOVL RO. MEMORY 
00 6E oY 2c Beose MOVCS #0, (SP), #0, #1440, (MEMORY) 
52 OS9F C6 9E o00ze MOVAB 1439(R6), R2 
50 56 DO 000 MOVL MEMORY, PTR 
1E 11 00036 BRB 3$ 
08 AQ 00480102 8F DO 00038 2s: MOVL #4718850, 8 (PTR) 
51 1¢ AO 9E 00040 MOVAB 28(P 
61 0200000 8F D0 00044 MOVL $3067 1986" (R1) 
04 Al 04 00048 CLRL = &(R1) 
04 B87 60 OE 0004E INSQUE (PTR) aFREE. 10B_QUEUE +4 
50 48 AO 9E 40052 MOVAB  72(ROS 
52 50 01 00056 3$: CMPL PTR, R ae 
DD 1B 00059 BLEQU 2$ 
B5 11 00058 BRB 1$ 
02 6¢ 91 90050 4$: CMPB ss (AP), -«#2 
23 1F 00060 BLSSU 5$ 
08 AC 3 BR08 TSTL i 
1E 13 0006 BEQL $ 
7E 04 BC 1€ C1 00067 ADDL3 #28, @10B, -(SP) 
08 AC DD 0006C PUSHL BYTES 
000000006 00 02 FB O006F CALLS #2, STRSGETI _DxX 
52 50 pO 00076 MOVL RO, STATUS 
09 2g a 90079 BLBS STATUS, rf 
52 DD 0007C PUSHL STATUS 
000000006 00 01 FB 0007E CALLS #1, LIBSSIGNAL 
04 00085 5$: RET 


134 bytes, Routine Base: CODE + 007D 
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; Routine Size: 


7 
prabiens Services -- Memory routines 1b-se-1964 9g: 12:00 AX-11 Bliss-32 V4.0- 


DEALLOCATE _DSB 


ZSBITL ‘DEALLOCATE 3058" 
Functional Descri ghee 
Deallocate a Dynamic String Block 


oO 


Formal Parameters: 
DSB -- address of block to be deallocated 


Implicit Inputs: 
none 

Implicit Outputs: 
none 

Returned Value: 
non 


! Side Effects: 
‘ non 


lee 
GLOBAL ROUTINE PSMSDEALLOCATE_DSB ( 
DSB : REF SBBLOCK 
: NOVALUE = 
BEGIN 
SIGNAL _IF_ERROR_ (STRSFREE1_DX (DSBCDSB_Q_DESCJ)); 
INSERT_TAIL_ (DSBCDSB_Q_QLINKS], FREE_DSB_QUEUE); 


END; 


3 tt HOOD DOOOOCOCOC OOOOOOOOOO®W 


NOUS WN 0 ODNAUE WN (OO OONAOUE WO 
= PONINOPONNY — ss 


0004 00000 -ENTRY 
7E 04 AC 08 C1 00002 ADDL3 
000000006 00 01 FB 00007 CALLS 

52 50 00 Q000E OVL 

09 52 £8 00011 BLBS 
52 DD 00014 PUSHL 
00000000G 00 01 FB 00016 CALLS 
0000° ODF 046 BC OE $4 1$ INSQUE 

04 0002 RET 


36 bytes, Routine Base: CODE + 0103 


742 
PRTSMB.SRC JMEMORY .B32; 1 


PSMSDEALLOCATE _DSB, Save R2 
SB, -(SP)~ 

#1. ; STREFREET_ Dx 

STATUS, i$ 


#1, LIBSSIGNA 
apse, aFREE NDSB_ QUEUE +4 


“eee> 
a 


Page 


; Routine Size: 36 bytes, Koutine Base: CODE » 0127 


Ss Ff 
MEMORY Symbiont Services == Memory routines 16-Sep-1984 02:19: AX-11 Bliss-32 V4.0-742 Page 10 MEF 
v04=000 DEALLOCATE. 108 . eet) Pn St tet tg Pr ee 9 66) vo. 
: 1g 1218 1 ZSBTTL ‘DEALLOCATE_108' ‘ 
s e7 1219 1°! Functional Description: : 
3 r8 : 9 ! Dealiocates an Input/Output Block : 
; 280 1 ¢ 1 ! Formal Parameters: 3 
; + : i } } 10B = address of block to be deallocated . 
3 HE 1225 1 ! Implicit Inputs: 3 
; 284 1226 1! none 3 
; 285 1227 1! 3 
: see 1228 1 ! Implicit Outputs: 3 
3 ss 1229 1! none : 
; 288 1230 1! 3 
; 289 1231 1 ! Returned Value: $ 
; 290 1 ¢ 1! non : 
3 $3) ass Se g 
3 36 1 $e 1 ! Side Effects: F 
; 29 1235 1! non ; 
: 2946 1236 1 !-- : 
; 295 1237 1 GLOBAL ROUTINE PSMSDEALLOCATE_10B ( - 
3 $38 1238 #1 108 : REF $BBLOCK r 
; 297 1239 1 : NOVALUE = : 
; 298 1240 2 BEGIN 3 
: 344 1241 2 : 
; 300 124g ; SIGNAL_IF_ERROR_ (STRSFREE1_DX (1OBC10B_Q_BUFFER])); ; 
; 302 1244 2 INSERT_TAIL_ (IOBCIOB_Q_QLINKS], FREE_10B_QUEVE); ; 
3s 305 1245 2 3 
; 304 1246 1 END; : 
| : 
0004 0000 -ENTRY PSMSDEALLOCATE_IOB, Save R2 : 1237 3 
E 04 AC 1¢ C1 0000 ADDL3 = #28, , =(SPY 3 1242) 3 
000000006 00 01 FB 0C007 CALLS #1, STRSFREE1_DXx : | 3 
52 50 DO OO00E MOVL RO, STATUS 3 F 
09 25 E8 00011 BLBS STATUS, 1$ 3 3 
5 DD 00014 PUSHL STATUS : | $ 
00000000G 00 01 FB 00016 CALLS #1, LIBSSIGNAL : 3 
0000" ODF 04 BC OE B20 18 1$: INSQUE @10B, @FREE_IOB_QUEUE+4 : 1244 ; 
04 0002 RET 3 1246. 3 


. 7 
Symbiont Services -- Memory routines 16-Sep-1984 02:19: AX-11 Bliss-32 V4.0-742 P 11 
ALLOCATE_SCB . 14 ety 7 5:32:08 PRTSMB.SRCJMEMORY.B32;1 __ (7) 


ZSBTTL ‘ALLOCATE_SCB' 
' Functional Description: 
Allocates a Stream Control Block 


— 
r~ 
~ 


Formal Parameters: 
SCBADR = address of a longword to receive address of new SCB 


Implicit Inputs: 
none 


Implicit Outputs: 
none 


Mo tO 


Returned Value: 
non 


; 306 1 

: ot i 

; 08 124 1 

3 9 1250 1 

. oe 

3 ¢ 1 26 1 

3 1254 1 

5 4 1255 1 

3 5 1256 1 

3 6 1257 1 

$ 7 1258 1 

3 8 1259 1 

3 9 1260 1 

3 0 1261 1 
: $51 1 6 1 
: $¢ 1263 1! Side Effects: 
: 32 1264 1 none 
; 326 1265 1 i-- 
3 $2 1266 1 GLOBAL gh} PSMSALLOCATE_SCB ( 
4 26 1267 1 SCBA : t REF SLONGQORD 

3; 327 1268 1 ) 

: 328 1269 BEGIN 
: 329 1270 

; 330 1271 EXTERNAL 

; 331 1272 PSMS$GL_USER_CTX 

3 336 1273 § ; 

s 33 1274 

3: «334 1275 2 LOCAL 

s 355 1276 2 SCB : REF $BBLOCK 

; 336 1277 2 SCB_SIZE : INITIAL (PSMSS_ SCB) 

s 357 1278 2 : 

; 338 1279 2 
; 825 1680 § SCB_SIZE = .SCB_SIZE + .PSM$GL_USER_CTX; 
: $e! 1so¢ § RETURN_IF_ERROR_ (LIBSGET_VM (SCB_SIZE, SCB)); 

; 38 1eee 2 CHSFILL (0, .SCB_SIZE, .SCB); 

; 345 1584 3 SCBCPSMS$B_TYPE] = PSM$K_STRUCTURE_SCB 

: 346 1287 SCBLPSM$B~ LEVE J= SMBMSGS$K "STRUCTURE. LEVEL; 

: 347 1288 SCBCPSM$W_SIZEJ] = PSMS$S _SCBF 

; 348 1289 

: 49 1539 SCBADRC] = .SCB; 

; 50 1291 

3 51 1698 SS$_NORMAL 

; 326 1293 2 

: 5 1294 1 END; 


-EXTRN PSMSGL_USER_CTX | 
00000 ENTRY PSMSALLOCATE_SCB, Save R2,R3,R4.R5,R6 : 1266. 

SE 9008 SUBL2 #8, SP ; | 
04 AE 204 8F 3C 0000 MOVZWL #704, SCB > 1269 | 
04 AE 000000006 00 CO 00008 ADDL2 PSMSGL USER. tix, sce SIZE > 1280 | 
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-000 ALLOCATE_SCB 14-Sep eats 7 93: 43 ” PRTSMB.SRCJMEMORY.B32;1 
5E 0D 0001 PUSHL 
08 AE 9F 0001 PUSHAB sca.s 
000000006 98 9 4 8 1 CALLS # “Lies Scer_vm 
1 E 1F BLBC = STATU 
56 +3 Be 0 é MOV 35°" 
04 AE 00 6E oY C $8 ; mMovcS # (83), #0, SCB_SIZE, (R6) 
08 A6 02040103 if dO $0 C MOVL so bes s 140) _btno 
046 BC 6 00 00034 MOVL RG. 
50 01 00 B28 8 MOVL ° RO” 
04 0003B 1$: RET 
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SBTTL ‘INITIALIZE_SCB' 
Functional Description: 


Initializes an SCB at START_STREAM time. 


Formal Parameters: 
SCB - address of SCB to be initialized 


Implicit Inputs: 
PSM$MIT = message item table containing information 
about message items in SCB. 
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Implicit Outputs: 
none 
Returned Value: 
non 
Side Effects: 
non 


GLOBAL ROUTINE PSMSINITIALIZE_SCB ¢ 
SCB : REF $BBLOCK 
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BEGIN 


LOCAL 
10B : REF $BBLOCK 


IF .SCBCPSM$B_LEVEL] NEQU SMBMSG$K_STRUCTURE LEVEL 
OR .SCBCPSM$B_TYPE] NEQU PSM$K_STRUCTURE_SCB 


HEN 
RETURN SMB$_INVSTRLEV; 
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DECR ITEM_CODE FROM SMBMSGSK_MAX_ITEM_CODE TO 0 
If .PSMSMITC.1TEM_CODE, MIT_B8_TYPE] EQL MIT_K DYNAMIC 
INIT_DYN_DESC_ (.SCB + .PSMSMITC.ITEM_CODE, MIT_W_OFFSETJ); 


(ACCOUNTIN 


_SIZE_ CG. PSM$S_ACCOUNTING_AREA; 
ADDR~ (ACCOUNTING 


= SCBLPSMS$T_ACCOUNTING AREA); 


PSM$S_CONDITION_ AREA; 
SCBLPSM$T_CONDIT!ON_AREA]; 
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| 
| 
| 
| 


¢ 8 
MEMORY Srab tone Services -- Memory routines Je~300= 1386 96:12:00 Ax-11 Bi ist -32 V4.0-742 Page 16 
v04-000 READ_ITEM_ 14-Sep-1984 12:55: PRTSMB. SRCI MEMORY .B32; 1 (9) 
; 428 1367 1 %SBITL 'READ_ITEM_DX' 
; 429 1368 1 ! Functional” Description: 
; ? ° i 4 ! } Reads a message item from the SCB into a descriptor. 
; 4 ¢ 130) 1 ! Formal Parameters: 
. 6 1 if eB SMB_CONTEXT - address of the SCB 
> 434 1373 1! ITEM CODE - item to be read 
3 rh H ere : DESCRIPTOR - address of output buffer descriptor 
; 437 1376 1 ! Implicit Inputs: 
>; 438 soe BE none 
3; 439 1308 1! ie 
; 440 1379 1°! Implicit Outputs: 
> 441 1380 1! none 
; 442 1381 1! | 
3 4463 1382 1 ! Returned Value: 
3 444 1383 1! none 
3 445 1384 1i 
s 646 1385 1 ! Side Effects: 
: 4467 1386 1! non 
; 448 1387 1 !-- 
; 449 1388 1 GLOBAL a ee “ieee ITEM_DX 
; 450 1389 1 SMB_ CONTEXT : REF SLONGWORD, 
3 451 1390 1 ITE TER C ODE : REF $LONGWORD, 
; 452 1391 1 BESCRIPTOR : REF $BBLOCK 
3; 453 1392 1 = 
s 6546 1393 2 BEGIN 
; 455 1394 2 
3 $36 1333 § LOCAL  ITEM_ADR; 
3 238 1397 § IF .ITEM_CODEC] GEQU SMBMSGSK_MAX_ITEM_CODE THEN RETURN PSM$_INVITMCOD; p 
; 460 1399 é ITEM_ADR = .SMB_CONTEXTC) + .PSMSMITC.ITEM_CODEL], MIT_W_OFFSET]; | ; 
; 462 1401 2 CASE 2 PSMSMITC.ITEM_CODECI, MIT_B_TYPE] FROM MIT_K_STATIC TO -1 OF | 
: 463 1402 2 SET | 7 § 
> 464 1403 2 | 2 R 
3 465 1404 2 CMIT_K_DYNAMIC, MIT_K STATIC]: | 7 E 
; 466 1405 2 ToPy _DX_DX_ ITER ADR, .DESCRIPTOR); z 4 
> 467 1406 2 .s 
> 468 1407 ¢ COUTRANGE): 7M 
: 469 1408 BEGIN 7 ¢ 
: 470 1409 3 LOCAL SIZE; 
: 4 1619 : Size = -PSMSMITC.ITEM_CODEC], MIT_B_TYPE]; ! Copy needs a ref. 
3; 473 P1412 3 COPY_R_DX_ ( SIZE, ' Table item size 
> 474 P1413 3 - 1TEM_ADR, ' Table item address 
3: 475 1414 4 .DESCRIPTOR ) , ' User item desc 
3; 476 1415 4 
3; 477 1416 $ END; 
; 4678 1417 TES; 
; 479 1418 2 
; 480 1419 é SS$_NORMAL 
: 4681 1420 
; 482 1421 1 END: 


MEMORY 
v04-000 ReAD_ITEM_DX 


Dd 8 
Symbiont Services == Memory routines ? ep-19 
ep 


0004 00000 ENTRY 
5E 04 C2 0000 SUBL2 
50 08 BC 50 0000 OVL 
39 6 01 00009 CMPL 
08 1F 0000C BLSSU 
50 000000006 8F 00 OO00E OVL 
04 0001 ET 
0000000060040 DF O00I6 18 PUSHAL 
51 9E 3C 0001D MOVZWL 
51 04 BC CO 00020 ADDL 
0000000060040 DF 00024 PUSHAL 
50 9E 98 00028 CVTBL 
01 FE BF 20 BF 000¢E CASEB 
0018 0018 00033 2$ . WORD 
6E 50 D0 00037 MOVL 
51 DD 0003A PUSHL 
04 AE 9F 000%C PUSHAB 
OC AC DD 0003F PUSHL 
000000006 00 03 FB 00042 CALLS 
0C 11 00049 BRB 
51 DD 00048 3$ PUSHL 
0C AC DD 0004D PUSHL 
000000006 00 02 FB 00030 CALLS 
52 50 D0 00057 4$ MOVL 
09 52 E8 O005A BLBS 
52 DD 0005D PUSHL 
000000006 00 01 FB 0005F CALLS 
50 01 D0 00066 5$ MOVL 
04 00069 RET 


; Routine Size: 106 bytes, Routine Base: CODE + 0272 
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PRTSMB.SRCJMEMORY .B32; 


BSMSREAD_ITEM_DX, Save R2 
alfem CODE, RO 

RO, #5 

#PSM$_INVITMCOD, RO 
PSMS$MIT+2C(ROJ 

a(SP)+, ITEM_ADR 
@SMB_CONTEXT; ITEM_ADR 
PSMSMITCROJ 

a(SP)+ RO 


avuee 5$ 
#1, LIBSSIGNAL 
1, RO 


Bete Se Se Se Se Se Be Se Se Se Fe Se Se Fe Se Se Se Be Fe Fe Be Fe Be Se Se Ge Se Se Se 
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READ_ITEM_R 14-Sep-1984 12:55: PRTSMB.SRCJMEMORY.B32;1 (10) 
; 4846 14 ¢ 1 ZSBTTL ‘READ_ITEM_R' : 
3; 485 14 1! Functional” Description: : 
; 486 1424 1! NOT SUPPORTED IN V4.0. : 
; 487 1425 1! ; 
; 488 1426 1 ! Formal Parameters: F 
; 489 1427 1! desc 3 
; 490 1428 1 ! Implicit Inputs: 3 
; 491 1°65 7 § none F 
: 49 1430 1! 3 
; 49 1431 1°! Implicit Outputs: $ 
: 496 O38 . 3 none ; 
; 495 1435 1! : 
: 496 1434 1 ! Returned Value: 3 
: 497 1435 1! n 5 
; 498 1436 1! : 
; 499 1437 1! Side Effects: - 
; $00 1438 1! non 3 
; 501 1439 1 !=- 3 
; 50 1440 1 GLOBAL whe tee ITEM_R ( 3 
; 30 1441 1 SMB_ CONTEXT : REF $LONGWORD, : 
s 306 1006 1 ITEM OODE : REF $SLONGWORD, a 
; 505 1443 1 BUF STZ : REF SWORD, 3 
; 506 1444 1 BUF ADR : REF VECTOR C,BYTE) 3 
3 207 1445 1 )= | : 
; 508 1446 2 BEGIN 3 
; 509 1447 2 3 
3 gio rer § LOCAL USER_DESCRIPTOR : VECTOR (2); ‘ 
:- Sie 1450 2 USER_DESCRIPTOR (0) = .BUFSIZ(); 3 
: 313 1451 ¢ USERLDESCRIPTOR [1] = .BUFADR; | : 
: a2 1287 3 RETURN PSMSREAD_ITEM_DX (.SMB_CONTEXT, .ITEM_CODE, USER_DESCRIPTOR); : 
s Si? 1455 1 END; ‘ 
0000 00000 ~ENTRY epreneno.. ITEM_R, Save nothing : 1440) : 
5E 04 C2 00002 SUBL2 #4, : 3 
7E 0c BC 3C 00005 MOVZWL SBUFSIZ. USER_DESCRIPTOR : 1450 : 
04 AE 10 AC 00 00009 MOVL BUFADR, USER _BDESCRIPTOR+4 : 1451) $ 
5E bp BR ROF PUSHL SP : 1453. é 
7E 04 AC D 0001 MOVQ SMB_CONTEXT, =(SP) 3 é 
FF7D CF 03 FB 00014 CALLS #3, “PSMSREAD_ ITEM_DX 5 : 
04 00019 RET : : 
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A 
PSMS$L_TASK_FLAGS] 


BCPSMSL_T_MARGIN 
SCBLPSM$L_L_MARGIN 


CLEAR_QUAD_ (SCBCPSM$Q_ITEM_FLAGS]); 
ene KEEP_ALIVE] 
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Release any outstanding 10 control block 
if .SCBCPSM$A_10B] NEQ 0 
THEN cin 
INSERT_TAIL_ (.SCBCPSMSA 196) + SBYTEOFFSET(IOB_Q_QLINKS), 


SCBCPSM$Q BUFFER. QuEDEJ) 
SCOLPSHSA. NOB] s 


: Empty the checkpoint queue 
BEGIN 
LOCAL PTR: REF $BBLO 


_ REMOVE _HEAD_ PTR, SCBCPSM$Q_CHECKPOINT_QUEUE]) ! True when empty 


PSMSDEALLOCATE DSB (.PTR - $BYTEOFFSET (DSB_Q_QLINKS)); 
adam CHECKPOINT DEPTH H) = 0; 


! Empty the nested input queue 
BEGIN 
LOCAL PTR: REF $BBLO 
UNTIL REMOVE _HEAD_ erR. SCBCPSM$Q_INPUT_QUEUE]) ! True when empty 


PSMSDEALLOCATE bse (.PTR = SBYTEOFFSET (DSB_Q_QLINKS)); 
rn, INPUT_DEPTH) = 0; 


SS$_NORMAL 
END; 
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; Routine Size: 


prep tont Services -- Memory routines 
RESET_SCB 


254 bytes, 


FD39—s CF 


FDID =s CF 


Routine Base: 


1 40 AX-11 Bliss-32 V4.0-742 Page 22 3 
1 41 PRISMB. SRC IMEMORY B32: 1 9 47) v0: 
09 1D 000c8 BVS 7$ : 
2 DD 000CD PUSHL PTR + 1548 
01 FB OOOCF CALLS #1, PSMSDEALLOCATE_DSB : 
EC 11 000D4 BRB 4g : 
04 ac po 00006 7$: MOVL CB, RO + 1549 
02A2 CO 94 OOODA CLRB 674(RO) : 
04 AC DO OOODE 8$ MOVL cB RO : 1557 
0184 00 OF OE REMQUE @388(RO), PTR : | 
09 1D O00E VS 9$ ; | 
2 DD OO0E9 PUSHL PTR + 1559. 
07 FB 000EB CALLS #1, PSMSDEALLOCATE_DSB : | 
EC 11 OOF BRB 8$ : | 
04 ac DO O00F2 9$: MOVL CB, RO + 1560) 
02A5 CO 94 000F6 CLRB = 677(RO) : 
01 DO OOOFA MOVL #1, RO + 1566. 
04 000FD RET ; | 
CODE + 02F6 


J 8 
MEMORY Symbiont Services -=- Memory routines 16-Sep-1984 02:19: AX-11 Bliss-32 V4.0-742 P 3 
UPDATE. SCB Scie 1465 07138 95:32:08 PRISMB. SRCIMEMORY B32: 1 age 433 


r=) 
S 


; 631 1567 1 XSBTTL ‘UPDATE_SCB' 

3; 6 ¢ 1568 1°! Functional Description: 

3 ° : $ : } Updates an SCB with messages items 
i: 655 1571 1°! Formal Parameters: 

; 6356 1226 ZZ - address of SCB to be updated 

: ° i 1327 : MESSAGE = address of descriptor of message 

; 639 1575 1! Implicit Inputs: 

; 640 1378 1! none 

3; 641 1577 1! 

3; 64 1328 1! Implicit Outputs: 

; 64 1879 1! none 

3: 644 1580 1! 

3 645 1581 1 ! Returned Value: 

: 646 1286 +f non 

; 647 1583 1! 

; 648 1584 1! Side Effects: 

; 649 1585 1! non 

; 650 1586 1 !-- 

; 651 1587 1 GLOBAL ROUTINE PSMSUPDATE_SCB ( 

s 32 1588 1 S¢CB : REF $BBCOCK, 

; 653 1589 1 MESSAGE : REF VECTOR 

3 654 1590 1 = 

s 655 1591 2 BEGIN 

; 656 1236 2 

: 657 159 § BUILTIN 

; 658 1594 SP 

; 659 1595 2 3 

; 660 1596 2 

; 661 1597 § LOCAL 

; 662 1598 STATUS_1, 

> 663 1599 2 CONTEXT INITIAL (0), 

3 664 1600 2 ITEM INITIAL (0), 

; 665 1601 2 DESC SDYNAMIC_DESC 

; 666 1602 2 3 

3: 667 1603 2 

3 3 lo 2 SCBCPSM$L_REQUEST_CONTROL] = 0; 

; 670 1606 § WHILE (STATUS_1 = SMBSREAD_MESSAGE_ITEM (.MESSAGE, CONTEXT, ITEM, DESC)) 

3 671 1607 § DO 

; 67 1608 BEGIN 

; 67 1609 ; BITVECTOR CSCBCPSM$Q_ITEM_FLAGS], .ITEM) = 1; 

3; 674 1610 PSMSWRITE_ITEM_DX (STB, ITEM, DESC); 

3 675 1611 2 END; 

; 676 1o1¢ 2 

; 677 161 IF .STATUS_1 NEQ SMB$_NOMOREITEMS 

; 678 1614 T 

3; 679 1615 RETURN .STATUS_1; 

; 680 1616 

; 681 1617 SS$_NORMAL 

; ors 1618 

; 68 1619 1 END; 


; 


kK 8 
MORY j j -- M i ” = we «v= 
v6 ook ™ eden! Lemeipeaer 1=86b-1984 15:58:09 EAATSMB’SREIMEMORY 03271 


0004 00 ENTRY PSMSUPDATE _SCB, Save R2 
SE ¢ C2 000 SUBL2 2 
E 04 0000 CLRL Context 
04 AE 04 00007 CLRL ~=—s'TTEM 
08 AE 02060000 8F DO S004 MOVE © #34471936, DESC 
OC AE 04 00 I CLRL ——dDESC+4 
50 04 AC 00 0001 MOVL 358. RO 
0140 CO D4 00019 CLRL 0(RO) 
08 AE 9F 0001D 1$ PUSHAB DESC 
08 AE 9F 000 9 PUSHAB ITEM 
08 AE OF 900 PUSHAB CONTEXT 
08 AC DD 00026 PUSHL MESSAGE 
000000006 00 4 FB 00029 CALLS #4, SMBSREAD_MESSAGE_ITEM 
52 0 DO 000 9 MOVL RO, STATUS_1 
1B 52 £9 0003 BLBC STATUS_1, 3$ 
50 04 AC dO 00036 MOVL _—SCB, 
00 0180 0 04 AE €E2 0003A BBSS _ITEM, 432(RO), 2$ 
08 AE SF 00041 2$ PUSHAB DESC 
08 AE 9F 00044 PUSHAB ITEM 
04 AC 9F 00047 PUSHAB SCB 
0000v CF 03 FB O004A CALLS #3, PSMSWRITE_ITEM_DX 
CC 11 OOO4F BRB 1$ 
000000006 8F 52 D1 00051 3$ CMPL § STATUS_1, #SMB$_NOMOREI TEMS 
04 13 00058 BEQL «6 $$ 
50 52 00 0005A MOVL § STATUS_1, RO 
04 0005p RET 
50 01 DO 0005E 4$ MOVL #1, RO 
04 00061 RET 


; Routine Size: 98 bytes, Routine Base: CODE + 0O3F4 


Ds a la a el OLE i oN OE Rt EOE a a 


Page 


8 
pote tees -- Memory routines 1$- -Sep-1984 


003¢ 


oo 
oo 


oo 
mo 


ENTRY PSMSWRITE ITE. DX, Save R2,R3,R4,R5 : 3 
MOVL alTEM_CODE, 3% 


oo 


MEMORY Symbiont S$ 219: AX-11 Bliss-32 V4.0-742 Page 25. 
v04-000 WRITE ITEM, 14-Sep-1984 95:12:90 PRTSMB.SRCJMEMORY.B32;1 ° 133 | 
> 685 1620 1 gseTTe "WRITE_ITEM sek, 

; «68 1621 1 ! Functional Bescription: 

; 68 16 ¢ 1 i NOT SUPPORTED IN V4.0. 

; 688 16 1 i 

; 689 1624 1 ! Formal Parameters: 

; 690 1625 1: es 

; 691 1626 1! Implicit am. 

; 69 1627 1! non 

; 69 1628 1! 

3 694 1629 1 ! Implicit Outputs: 

; 695 1630 1! none 

; 696 163] tt 

; 697 16 § 1 ! Returned wanes 

; 698 163 1! 

; 699 1634 1! 

; 700 1635 1 ! Side Effects: 

: 701 1636 1! none 

; 70 1637 1 ies 

, 1638 1 GLOBAL oe =I TEM. Dx ¢ 

3: 704 1639 1 SMB_CONTEXT REF " BLONGUORD 

: 705 1640 1 ITEM_CODE REF SLONGWORD, 

: 706 1641 1 DESCRIPTOR : : REF $BBLOCK 

; 707 1o6g 1 z 

; 708 16435 2 BEGIN 

: 709 1644 2 

5 ny 190? § LOCAL ITEM_ADR; 

: at ieee 5 IF .ITEM_CODEC] GEQU SMBMSGSK_MAX_ITEM_CODE THEN RETURN PSM$_INVITMCOD; 
3 ee 168) § ITEM_ADR = .SMB_CONTEXTC) + .PSMSMITC.ITEM_CODELI], MIT_W_OFFSETI; 

3; 716 1651 2 CASE .PSMSMITC.ITEM_CODEC], MIT_B_TYPE] FROM MIT_K_STATIC TO <1 OF 
s 717 1036 2 SET 

: 718 1653 2 

; 719 1654 2 CMIT_K_DYNAMIC, MIT_K_STATIC): 

: 720 1655 2 COPY_DX_DX_ C DESCRIPTOR, - 1TEM_ADR); 

> 721 1656 2 

s 22 1657 2 cournsaee 3 

s 23 1658 2 CHSCOPY ( 

: 724 1659 2 -DESC_SIZE_ (.DESCRIPTOR), ! User item size 

3; 725 1660 § -DESC_ADDR_ (.DESCRIPTOR), ! User item address 
: 126 1661 0. ' Zero fill 

s Te? 1666 2 -PSMSMITC.ITEM_CODEC], MIT_B_TYPE], ! Table item size 

: 728 166 - ITEM_ADR); ' Table item address 
3 694 1664 

; 730 1665 TES; 

. ro 1666 § 

: 732 1667 SS$_NORMAL 

3; 733 1668 2 

3; 734 1669 1 END; 
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4 8 
MEMORY Symbiont Services -- Memory routines 16-Sep-1984 219: AX-11 Bliss-32 V4.0-74 
v04-000 URITE. ITEM, DX , 1o-8e8- 1382 95:42:88 PRTSMB’ SREIMEMONY 03544 
a a 
50 000000006 SF pO 35 MOVL #PSM$_INVITMCOD, RO 
0000000060041 DF 0013 1$: PUSHAL PSMSMIT+2(R1] 
52 9E g O01, MOVZWL a(SP)+, ITEM_A 
3 04 BC CO 0001D ADDL2 @SMB_CONTEXT; ITEM_ADR 
0 C AC DO 00021 MOVL DESCRIPTOR, RO 
0000000060041 DF 00025 PUSHAL PSMSMITCR1J 
51 9E 98 0002C CVTBL a(SP)+, R1 
01 FE BF 51 BF O002F CASEB «RI, #-2, #1 
000D 000D 00034 2$: WORD 3$- $.- 
51 00 04 B0 60 2C 00038 MOVCS (RO), a4(RO), #0, R1, (ITEM_ADR) 
62 0003E 
1A 11 O003F BRB 4$ 
50 DD 00041 3$: PUSHL RO 
52 DD 00043 PUSHL ITEM_ADR 
000000006 00 08 FB 00045 CALLS #2, STRSCOPY_Dx 
52 50 D0 0004¢ MOVL RO, STATUS 
09 3 EB OO004F LBS STATUS, 4$ 
52 DD 00052 PUSHL STATUS 
000000006 00 01 FB 00054 CALLS #1, LIBS$SIGNAL 
50 01 DO 0005B 4s: MOVL #1. RO 
04 0005€ RET 


; Routine Size: 95 bytes, Routine Base: CODE + 0456 


re if 


BeBe Se Be Se Ge Be Se Se Be Fe Be Se Ge Se Be Se Ge Ge Se Be Ge Se Se Se 


1669 


N 8 ‘ 
MORY Symbiont Services -- Memory routines 16-Sep-1984 219: AX-11 Bliss-32 V4.0-742 
v04-000 URITE ITEM-R , 1378 08- 1382 05:12:00 PRTSMB.SRC JMEMORY .832;1 
SS $ 1670 1 ZSBTTL ‘WRITE_ITEMR' 
. 7 1671 1 ! Functional Bescription: 
: 738 lore 1! NOT SUPPORTED IN V4.0. 
; 739 1673 1! 
; 740 1674 1 ! Formal Parameters: 
: 741 1675 1! desc 
; 74 1928 1! Implicit Inputs: 
s 76 1677 1! none 
3 744 1678 1! 
3; 745 1679 1°! Implicit Outputs: 
: 746 1680 1! none 
: 747 1681 1! 
: 748 1oRe 1 ! Returned Value: 
: 749 1685 1! non 
; 750 1on6 3 t 
; 751 1685 1 ! Side Effects: 
: Pee 1686 1! non 
, 1687 1 !-- 
; 754 1688 1 GLOBAL ROUTINE PSMSWRITE_ITEM_R ( 
3 39 1689 1 SMB_CONTEXT : REF $SLONGWORD, 
; 756 1690 1 ITEM_CODE : REF SLONGWORD, 
we rle 1691 1 BUF STZ : REF SWORD, 
; 758 1936 1 BUF ADR : REF VECTOR C,BYTE) 
: 759 1693 1 2 
; 760 1694 § BEGIN 
; 761 1695 
; 762 1696 2 LOCAL USER_DESCRIPTOR : VECTOR (2); 
: 763 1697 2 
3 764 1698 2 USER_DESCRIPTOR (CO) = .BUFSIZ(); 
: 163 +44 § USER_DESCRIPTOR C1] = .BUFADR; 
: eee 170) § RETURN PSMSWRITE_ITEM_DX (.SMB_CONTEXT, .ITEM_CODE, USER_DESCRIPTOR); 
3; 769 1308 1 END; 


0000 00000 -ENTRY PSMSWRITE_ITEM_R, Save nothing 

--% 04 C2 00002 SUBL2 ._SP 

7E 0c BC 3C 00005 MOVZWL @BUFSIZ, USER_DESCRIPTOR 
04 AE 10 AC 00 00009 MOVL  BUFADR, USER_DESCRIPTOR+4 

5E DD 00008 PUSHL SP 

7E 04 AC 7D 0001 MOVQ. § SMB_CONTEXT, ~(SP) 

89 AF 03 FB 00014 CALLS #3, PSMSWRITE_ITEM_DXx 
04 00018 RET 


; Routine Size: 25 bytes, Routine Base: CODE + 0485 


) 


Page 27. 


(14). 


788 


3; Routine Size: 


B 9 

pyepiert Services -- Memory routines 16-Sep-1984 06:12 00 VAX=11 Bliss-32 V4.0-742 Page 38 

ALLOCATE MEMORY 14-Sep-1984 12:55:09 CPRTSMB.SRCJMEMORY .B32;1 (15) | 
1704 1 %SBTTL ‘ALLOCATE_MEMORY' ; 
1705 1 ! Functional Description: F 
1706 ! Allocates memory through RTL routines. ; 
1708 1 ! Formal Parameters: : 
1708 i BYTES = number of bytes of memory to allucate ‘ 
1711 1°! Implicit Inputs: | F 
ar 1! non : 
wis 34 3 
1714 1°! Implicit Outputs: 3 
1715 1! none $ 
1716 1! | 3 
1717 1 ! Returned Value: : 
ay : } address of allocated memory : 
1720 1 ! Side Effects: | : 
1721 1! non F 
1722 1 !e- $ 
17235 1 ROUTINE ALLOCATE_MEMORY ( 3 
1724 1 BYTES 3 
1725 1 o | Ps 
1726 2 BEGIN : 
172? 2 5 
1728 ¢€ LOCAL ; 
1729 2 MEMORY ’ 
1730 2 : F 
1731 2 3 
1238 é SIGNAL_IF_ERROR_ (LIBSGET_VM (BYTES, MEMORY)); : 
1734 2 RETURN .MEMORY; : 
liz? .¢ ; 
1736 1 END; F 
: 
0004 00000 ALLOCATE_MEMORY: 3 
~WORD Save R2 s 1723) F 
5E 04 C2 00002 SUBL2 #4, SP : | 3 
5E 0D 00005 PUSHL 3 1732 | : 
04 AC 9F 00007 PUSHAB BYTES 3 3 
00000000G 00 0¢ FB BR8OA CALLS aoe LIBSGET_VM r ; 
52 50 00 00011 MOVL RO, STATUS : s 
09 52 €E8 00014 BLBS STATUS, 1$ ; ; 
52 DD 00017 PUSHL STAT 3 3 
00000000G 00 01 FB 00019 CALLS #1, LIBSSIGNAL 3 | 3 
50 6— 00 00020 1$: MOVL MEMORY, RO 3 1734) : 
04 00023 RET 3 1736) : 
36 bytes, Routine Base: CODE + O4CE : 


oe 228 288 208 288 288 288 od 20d od 28d odd Bd odd 286 odd odd of odd odd odd off od odd odd 288 odd od odd of odd odd oR OR OR EPR OR OP. EP. EPR EPR EPR OR OR EA EP OM OM IM Be 


; Compi 


MEMORY Symbiont Ser vices -- Memory routines 
-000 ALLOCATE _MEMORY 
805 ne TA 1 END 
806 1738 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
DATA NOVEC, WRT, RD ,NOEXE,NOSHR, 
CODE 1266 NOVEC,NOWRT, RD , R, 
Library Statistics 
~paeperacae Symbols 
File Total Loaded 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 23 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MEMORY/OBJ=OBJ$:MEMORY MSRC$:MEMORY/UPDATE=(ENH$: MEMORY) 


; Size: 1263 code + 19 data bytes 
00:31.3 


; Run Time: 


; Elapsed Time: 01:06.7 


; Lines/CPU Min: 3332 


: poe Used: 312 pages 
ation Complete 


384 96:12:00 AX-11 Bliss-32 V4.0 
4 12:55: PRTSMB.SRUJMEMORY.B 


~-EXTRN LIBS$SIGNAL 


Pages Processing 
Mapped Time 
1000 00:01.9 


0001 


Sg foe Ree MES, 


Ef. 


4 


. OES 


> aoe 
___ CONF 


AL _f 


